home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / dev / lang / sofa.lha / sofa / smalleiffel / misc / benchmarks / gc / cnolfo / bench.e next >
Text File  |  2000-03-25  |  534b  |  41 lines
  1. class BENCH
  2.  
  3. creation make
  4.  
  5. feature
  6.    
  7.    array: ARRAY[TRIANGLE];
  8.     
  9.    t: TRIANGLE;
  10.     
  11.    p1, p2, p3: POINT;
  12.  
  13.    many: INTEGER is 2_000;
  14.  
  15.    make is
  16.       local
  17.         i,j: INTEGER;
  18.       do
  19.      from
  20.         i := 4000;
  21.         !!array.make(1,many);
  22.      until
  23.         i = 0
  24.      loop
  25.         from
  26.            j := many;
  27.         until
  28.            j = 0
  29.         loop
  30.            !!p1.make(1.0,1.0);
  31.            !!p2.make(2.0,2.0);
  32.            !!p3.make(3.0,3.0);
  33.            !!t.make(p1,p2,p3);
  34.            array.put(t,j);
  35.            j := j - 1;
  36.         end;
  37.         i := i - 1;
  38.      end;
  39.       end;
  40. end
  41.